home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Enigma Amiga CD / Programmi / Ital20.lha / ital20 / arexx / Example.rexx < prev    next >
OS/2 REXX Batch file  |  1995-05-24  |  2KB  |  75 lines
  1. /*
  2.  *
  3.  *  Ital and Arexx
  4.  *  written by Arturo Ortino 12/12/93
  5.  *  rev. December 1994 for Ital 2.0
  6.  *
  7. */
  8.  
  9. options results
  10.  
  11. /*
  12.  *  We have to check wether Ital has been already launched,
  13.  *  looking for an arexx porta with name 'ITAL' ...
  14.  *  If Ital is not present we run it by the command
  15.  *  address command "Work:Inglese/Varie/Ital NOREQ"
  16.  *  then we wait until Ital is ready to receive orders by
  17.  *  address command "waitforport ITAL"
  18.  *  NOTE (1): Let's assume Ital is located in
  19.  *          'Work:Inglese/Varie'
  20.  *  NOTE (2): 'waitforport' command must be in a search 
  21.  *        directory assigned by the 'path' command.
  22. */
  23.  
  24.  
  25. if ~show('P','ITAL') then
  26.     DO
  27.     address command "Work:Inglese/Varie/Ital"
  28.     address command "waitforport ITAL"
  29.     END
  30.  
  31. address 'ITAL'        /* gets in contact with Ital */
  32.  
  33. 'CLEAR'            /* resets every possible previous settings */
  34.  
  35. 'Work:Docs/miofile'    /* Tells Ital to translate file
  36.              * "miofile"; the translation will be saved in
  37.              * its original directory  (Work:Docs) with
  38.              * "miofile.TRA" for name
  39.              */
  40.  
  41. address command "more Work:Docs/miofile.TRA"
  42.             /* Now reads the translated file by "More" */
  43.  
  44. address 'ITAL'        /* gets in contact again with Ital */
  45.  
  46. 'df1:GamesDocs/*'    /* Tells Ital to translate every file 
  47.              * contained in "GamesDocs" directory on
  48.              * disk in df1:
  49.              */
  50.  
  51. 'SAVEDIR=df0:'        /* Tells Ital that from now on every
  52.              * translated file should be saved in DF0:
  53.              */
  54.  
  55. 'df1:GamesDocs2/*'    /* Tells Ital to tradurre every file
  56.              * contained in "GamesDocs2" directory on
  57.              * disk in df1:
  58.              * NOTE: Translated files now will be
  59.              * stored in df0:  (see above)
  60.              */
  61.  
  62. 'CLEAR'            /* resets SAVEDIR ... */
  63.  
  64.  
  65. 'RAM:Provv/read.me'    /* Tells Ital to translate "read.me".
  66.              * NOTE: The translated file will e saved
  67.              * in the same directory of the input file
  68.              * (in this case, in "RAM:Provv")
  69.              */
  70.  
  71. 'QUIT'            /* Work finished, Ciao Ital! */
  72.  
  73.  
  74. exit (0)
  75.